Retrieves the extended styles that are currently in use for the tab control.
#Include <GuiTab.au3>
_GUICtrlTabGetExtendedStyle($h_tabcontrol)
Parameters
| $h_tabcontrol | control id/control hWnd |
Return Value
Returns a DWORD value that represents the extended styles currently
Remarks
None.
Related
None.
Example
#include <GUIConstants.au3>
#include <GuiTab.au3>
opt('MustDeclareVars', 1)
Dim $tab, $tab0, $tab0OK, $tab0input, $tab1, $tab1combo, $tab1OK, $tab2, $tab2OK, $tab3, $tab4
Dim $msg, $Styles, $i
GUICreate("Tab Get Extended Style", 300, 200) ; will create a dialog box that when displayed is centered
GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)
$tab = GUICtrlCreateTab(10, 10, 200, 100, BitOR($TCS_FLATBUTTONS, $TCS_MULTILINE), $TCS_EX_FLATSEPARATORS)
$tab0 = GUICtrlCreateTabItem("tab0")
GUICtrlCreateLabel("label0", 30, 80, 50, 20)
$tab0OK = GUICtrlCreateButton("OK0", 20, 60, 50, 20)
$tab0input = GUICtrlCreateInput("default", 80, 60, 70, 20)
GUICtrlCreateTabItem("") ; end tabitem definition
$tab1 = GUICtrlCreateTabItem("tab----1")
GUICtrlCreateLabel("label1", 30, 80, 50, 20)
$tab1combo = GUICtrlCreateCombo("", 20, 60, 60, 40)
GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
$tab1OK = GUICtrlCreateButton("OK1", 80, 60, 50, 20)
GUICtrlCreateTabItem("") ; end tabitem definition
$tab2 = GUICtrlCreateTabItem("tab2")
GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
GUICtrlCreateLabel("label2", 30, 80, 50, 20)
$tab2OK = GUICtrlCreateButton("OK2", 140, 60, 50)
GUICtrlCreateTabItem("") ; end tabitem definition
$tab3 = GUICtrlCreateTabItem("tab3")
GUICtrlCreateTabItem("") ; end tabitem definition
$tab4 = GUICtrlCreateTabItem("tab4")
GUICtrlCreateTabItem("") ; end tabitem definition
GUICtrlCreateLabel("label3", 20, 130, 50, 20)
GUISetState()
$Styles = ""
For $i = 1 To 2
Select
Case $i = 1
If (BitAND(_GUICtrlTabGetExtendedStyle ($tab), $TCS_EX_FLATSEPARATORS) = $TCS_EX_FLATSEPARATORS) Then
$Styles &= "$TCS_EX_FLATSEPARATORS" & @LF
EndIf
Case $i = 2
If (BitAND(_GUICtrlTabGetExtendedStyle ($tab), $TCS_EX_REGISTERDROP) = $TCS_EX_REGISTERDROP) Then
$Styles &= "$TCS_EX_REGISTERDROP" & @LF
EndIf
EndSelect
Next
If ($Styles) Then
MsgBox(0, "Extend Styles found", $Styles)
EndIf
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd